(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     94592,       2571]
NotebookOptionsPosition[     86882,       2282]
NotebookOutlinePosition[     87318,       2299]
CellTagsIndexPosition[     87275,       2296]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"f326f4a7-30f2-4900-9805-c20cd4aed8d9"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"1f22c330-de9c-4e6b-8f09-2585b99b5549"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"c6faa26b-1a5c-4886-9ded-ab4922f4be8a"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"0bb75c6d-839a-43fb-83c7-d849449b372d"]
}], "History",
 CellID->1247902091,ExpressionUUID->"bad4258b-e5ab-4ed7-80b0-3bbfbeecdae8"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"29c62eb4-6543-46cc-b638-91cc6a62cc42"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"a453bc7d-ad95-4466-9d34-deb2f83b477b"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836350654626*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"5dc43434-8a14-44b4-ac12-15009a944d97"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836351712112*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"ea1a70bf-86af-444a-bffd-eeeb76851e30"],

Cell["MaXrd/tutorial/ComputationsOnReflections", "Categorization",
 CellChangeTimes->{{3.718429212033304*^9, 3.718429216986377*^9}, 
   3.7438363524561567`*^9},
 CellLabel->"URI",ExpressionUUID->"16262bd0-89eb-4dc7-8e25-2c1503c64e0c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"1f725765-5478-44cd-a6b6-3328489024c5"],

Cell["XXXX", "Keywords",
 CellID->1251852827,ExpressionUUID->"e192cd9a-095b-4a84-b79f-9a5e14adcf3a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"6767e80f-7586-4915-b9e9-f612ed1d4e14"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->218895918,ExpressionUUID->"27d0a17b-59b5-4f55-aa4f-6ba3e37d4f88"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"69a718f3-0df7-4811-bff6-1116456f41e3"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->795871300,ExpressionUUID->"089de37f-8319-4476-9d69-fd514c42aada"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->199739161,ExpressionUUID->"bdfca850-4a2e-4f09-9b90-1f13c53c4705"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->40625308,ExpressionUUID->"03b1d5cf-531c-4610-82fb-945601b3d44b"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->357121918,ExpressionUUID->"7b44e750-bb74-4391-bfb9-19ae7b063610"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->35949532,ExpressionUUID->"adb8e471-4599-4bd4-90f9-3933244fcc54"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->929432370,ExpressionUUID->"18b8e50b-4a5b-459e-a370-1f992c6da3b4"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"fc904d0d-4b21-45ea-a288-c200451ca8c8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Computations on reflections", "Title",
 CellChangeTimes->{{3.717218992877576*^9, 3.7172189974826813`*^9}},
 CellID->509267359,ExpressionUUID->"d2501ae4-b440-488a-aaeb-701f610acde0"],

Cell[TextData[{
 "In this tutorial, we will see how to make use of the package when working \
with reflections on the form ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"h", ",", "k", ",", "l"}], "}"}]], "InlineFormula",ExpressionUUID->
  "ad872515-86ab-427a-98ec-28b0ad66c06c"],
 ", symbolising Miller indices ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "k", " ", "l"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"b3d11f85-8912-4780-bdc1-7c753773d800"],
 "."
}], "Text",
 CellChangeTimes->{{3.7328758276636953`*^9, 3.7328759064422398`*^9}, {
  3.732875940291803*^9, 3.732875951660582*^9}},
 CellID->1534169418,ExpressionUUID->"a54cc209-5303-47ab-a66f-097bc3b3ba32"],

Cell[CellGroupData[{

Cell["The package must be loaded:", "MathCaption",
 CellChangeTimes->{{3.717256679019158*^9, 3.717256686377759*^9}},
 CellID->1517691727,ExpressionUUID->"ff0c3fa4-bc6c-46ad-80fd-12b9515a311c"],

Cell[BoxData[
 RowBox[{"<<", "MaXrd`"}]], "Input",
 CellChangeTimes->{{3.7172566881659927`*^9, 3.7172566912817793`*^9}, 
   3.743836353248955*^9},
 CellLabel->"In[1]:=",
 CellID->318520214,ExpressionUUID->"9f7a6792-42f5-4b21-a802-a6ab354fba11"]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    ButtonBox["MergeSymmetryEquivalent",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/MergeSymmetryEquivalent"], Cell[
    "delete duplicate reflections by symmetry equivalence", "TableText",
     ExpressionUUID->"b9e5789c-4a67-438a-a827-13701152caa7"]},
   {
    ButtonBox["ReflectionList",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/ReflectionList"], Cell[
    "generates lists of reflections", "TableText",ExpressionUUID->
     "ff678f54-9c8b-481c-9c57-d3168324ce7e"]},
   {
    ButtonBox["SystematicAbsentQ",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/SystematicAbsentQ"], Cell[
    "checks whether a reflection is extinct", "TableText",ExpressionUUID->
     "8143e75a-eb9b-4d2a-9271-22497c98869b"]},
   {
    ButtonBox["ToStandardSetting",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/ToStandardSetting"], Cell[
    "gives the \[LeftGuillemet]standard representative\[RightGuillemet] \
reflection", "TableText",ExpressionUUID->
     "f1d096c8-5142-426e-be70-fc9ef5ddfa04"]}
  }]], "DefinitionBox",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.717219520668002*^9, 3.71721963127352*^9}, {
  3.717219662072604*^9, 3.7172196635608397`*^9}, {3.717219904226213*^9, 
  3.717219965528954*^9}, {3.717219996943736*^9, 3.717220003125798*^9}, {
  3.7172232328111963`*^9, 3.717223255933017*^9}, {3.7415820437491083`*^9, 
  3.741582047797179*^9}},
 CellID->99232225,ExpressionUUID->"16c1a00c-eaf1-4f15-b6c5-6462901f3091"],

Cell[TextData[{
 "Useful functions concerning ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"h", " ", "k", " ", "l"}],
    FontSlant->"Italic"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "795874fe-ccd7-4c41-a79d-2a655cf6bfab"],
 " reflections and systematic absence (extinct- or forbidden reflections)."
}], "Caption",
 CellChangeTimes->{{3.717219558764327*^9, 3.717219567761059*^9}},
 CellID->1348695503,ExpressionUUID->"c62f5923-73da-4fee-a590-b7e25f25b44d"],

Cell[BoxData[GridBox[{
   {
    ButtonBox["MillerNotationToList",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/MillerNotationToList"], Cell[TextData[{
     "converts formatted string ",
     Cell[BoxData[
      StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
      "c8527cad-6632-4275-8952-7f9e62699260"],
     " to list ",
     Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        StyleBox["h", "TI"], ",", 
        StyleBox["k", "TI"], ",", 
        StyleBox["l", "TI"]}], "}"}]], "InlineFormula",ExpressionUUID->
      "8518c44c-bdd9-4887-b865-6531d10bab8a"]
    }], "TableText",ExpressionUUID->"da40dfb6-18c9-4aef-ac50-775f13effb08"]},
   {
    ButtonBox["MillerNotationToString",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/MillerNotationToString"], Cell[TextData[{
     "converts list ",
     Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        StyleBox["h", "TI"], ",", 
        StyleBox["k", "TI"], ",", 
        StyleBox["l", "TI"]}], "}"}]], "InlineFormula",ExpressionUUID->
      "5883945e-5fc9-4b2d-96d3-55be436e9bec"],
     " to formatted string ",
     Cell[BoxData[
      StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
      "36a9e9b1-0922-4a48-a7bc-0e22f6977c61"]
    }], "TableText",ExpressionUUID->"f78f3b41-653e-40a8-860d-679304c05376"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.7172203708429337`*^9, 3.7172205354789257`*^9}, {
   3.740991880441516*^9, 3.740991882115272*^9}, 3.7415813264904823`*^9, 
   3.741581362348957*^9, {3.7415814189976797`*^9, 3.741581510657321*^9}, {
   3.741581701476181*^9, 3.741581789562709*^9}, {3.741669559588767*^9, 
   3.741669562407213*^9}},
 CellID->165241693,ExpressionUUID->"9bb6210d-5c18-4f9f-8359-59b4ad3a9e9c"],

Cell["Functions for formatting and deformatting reflections.", "Caption",
 CellChangeTimes->{{3.71722039912217*^9, 3.717220399673335*^9}, {
  3.7415815151623363`*^9, 3.741581535645759*^9}, {3.741581850052717*^9, 
  3.741581856224415*^9}, {3.741582029552433*^9, 3.74158203186305*^9}},
 CellID->520778680,ExpressionUUID->"5648cae7-fb2d-4945-82bf-c8c7aabf4bab"],

Cell[CellGroupData[{

Cell["Generating lists of reflections", "Section",
 CellChangeTimes->{{3.717219009682563*^9, 3.717219014858304*^9}},
 CellID->452856133,ExpressionUUID->"fb6a3f4d-b5f2-4fc3-9d96-d9dfe31c3d03"],

Cell[TextData[{
 "In this demonstration we wish to generate an appropriate list of \
reflections for ",
 StyleBox["sodium chloride",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.7172254295226507`*^9, 3.7172254723255587`*^9}},
 CellID->1652838465,ExpressionUUID->"660a5cf9-abdc-4487-85b4-593714d5aa27"],

Cell[TextData[{
 "Reflections are characterised by their Miller indices, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", " ", "k", " ", "l"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"0babf435-894d-477f-a358-867d900af466"],
 ", which are represented by lists of three elements in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"h", ",", "k", ",", "l"}], "}"}]], "InlineFormula",ExpressionUUID->
  "f33aa245-0644-45f6-a443-482cb515fcc8"],
 "."
}], "Text",
 CellChangeTimes->{{3.717225869499062*^9, 3.7172259402230797`*^9}, {
   3.717226014101231*^9, 3.717226022702273*^9}, 3.7441154233465843`*^9},
 CellID->285647363,ExpressionUUID->"44f85fe5-e510-4dc0-886d-9578ae3f9955"],

Cell[CellGroupData[{

Cell[TextData[{
 "Let us start by making a generic list of reflections; every possible whole \
number combinations, up to index ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0aae77c3-18df-417f-b8a4-a1c6e77d7272"],
 " (except the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", " ", "0", " ", "0"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ecc0bf7d-99e7-4994-bf9d-c959b124ee7e"],
 " reflection): "
}], "MathCaption",
 CellChangeTimes->{{3.7172260296702547`*^9, 3.717226113643031*^9}, {
  3.7172261448909693`*^9, 3.7172261873250713`*^9}},
 CellID->836781195,ExpressionUUID->"79342a16-1921-467f-99e1-b70b3624a8e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hkl", "=", 
  RowBox[{"ReflectionList", "[", "2", "]"}]}]], "Input",
 CellChangeTimes->{{3.717219378239142*^9, 3.717219384424054*^9}, {
  3.7172213886079893`*^9, 3.717221388974907*^9}, {3.717224784055666*^9, 
  3.717224790031708*^9}},
 CellLabel->"In[1]:=",
 CellID->2058623809,ExpressionUUID->"80db6fb1-1e22-4229-a09b-253318f87cd3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.717219384709119*^9, 3.7172213891980667`*^9, 3.717223980830303*^9, 
   3.7172240184672823`*^9, 3.7172245942968473`*^9, {3.717224784319385*^9, 
   3.717224803850103*^9}, 3.717224843737434*^9, 3.717227099657914*^9, 
   3.7416695801302433`*^9},
 CellLabel->"Out[1]=",
 CellID->2033754830,ExpressionUUID->"755363aa-1a6e-4b23-ad6a-1979832a7648"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$CrystalData", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", "\"\<SpaceGroup\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.717221466288178*^9, 3.7172214731714478`*^9}},
 CellLabel->"In[2]:=",
 CellID->2019258044,ExpressionUUID->"e7ef509b-2d41-480b-a165-aff2adb51275"],

Cell[BoxData["\<\"Fm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>"], \
"Output",
 CellChangeTimes->{3.71722147359099*^9, 3.7172235343235073`*^9, 
  3.7172239821308203`*^9, 3.7172240194522533`*^9, 3.71722459489211*^9, 
  3.7172248047142572`*^9, 3.717224845157255*^9, 3.717227099795103*^9, 
  3.741669583982328*^9},
 CellLabel->"Out[2]=",
 CellID->1262409059,ExpressionUUID->"25682a04-c0f6-4220-a6ba-4c5b720e4741"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"extinct", "=", 
  RowBox[{"SystematicAbsentQ", "[", 
   RowBox[{"\"\<Fm\!\(\*OverscriptBox[\(3\), \(_\)]\)m\>\"", ",", "hkl"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.717223582322455*^9, 3.717223594753175*^9}, {
  3.717223968962593*^9, 3.717223970336439*^9}},
 CellLabel->"In[3]:=",
 CellID->1001407484,ExpressionUUID->"70939b68-e87a-4d18-bb15-ce72756a60c4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "False", ",", "True", ",", "False", ",", "True", ",", "True", ",", 
   "False", ",", "False", ",", "True", ",", "True", ",", "False", ",", "True",
    ",", "True", ",", "True", ",", "False", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "False", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "False", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "False", ",", "True", ",", "True", ",", "True", ",", "False", ",", 
   "True", ",", "True", ",", "True", ",", "False", ",", "True", ",", "True", 
   ",", "True", ",", "False", ",", "True", ",", "True", ",", "False", ",", 
   "False", ",", "False", ",", "True", ",", "True", ",", "False", ",", "True",
    ",", "False", ",", "False", ",", "True", ",", "True", ",", "False", ",", 
   "True", ",", "False", ",", "True", ",", "True", ",", "False", ",", "True", 
   ",", "False", ",", "True", ",", "True", ",", "True", ",", "False", ",", 
   "True", ",", "False", ",", "True", ",", "True", ",", "False", ",", "True", 
   ",", "True", ",", "True", ",", "False", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False"}], "}"}]], "Output",
 CellChangeTimes->{
  3.71722359502172*^9, {3.7172239706314173`*^9, 3.717223983115994*^9}, 
   3.717224020919091*^9, 3.717224595991659*^9, 3.717224805248015*^9, 
   3.717224846143794*^9, 3.717227099978757*^9, 3.741669586869862*^9},
 CellLabel->"Out[3]=",
 CellID->1648459366,ExpressionUUID->"3c498e05-f189-44d3-ba8b-468976e9b8da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hkl", "=", 
  RowBox[{"Pick", "[", 
   RowBox[{"hkl", ",", "extinct", ",", "False"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7172214854676723`*^9, 3.717221506466851*^9}, {
  3.717224014881504*^9, 3.717224015511425*^9}},
 CellLabel->"In[4]:=",
 CellID->773138009,ExpressionUUID->"914d4119-8942-4f15-ae9e-f11b7c83eb40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.717221506664074*^9, {3.717223985956463*^9, 3.7172240225592737`*^9}, 
   3.7172245974298687`*^9, 3.717224853717667*^9, 3.717227100160974*^9, 
   3.741669590353467*^9},
 CellLabel->"Out[4]=",
 CellID->798542228,ExpressionUUID->"b507db8e-be6e-4d0f-9f3e-13c6ac361ae1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MergeSymmetryEquivalentReflections", "[", 
  RowBox[{"\"\<Fm\!\(\*OverscriptBox[\(3\), \(_\)]\)m\>\"", ",", "hkl"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.717224144630224*^9, 3.717224148028576*^9}, {
  3.7172245731413517`*^9, 3.71722457449149*^9}, {3.7416695942236032`*^9, 
  3.741669595855091*^9}},
 CellLabel->"In[5]:=",
 CellID->1315579155,ExpressionUUID->"8597aca2-a012-4ba1-bf2b-b6b0e1840fa4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7172241482660103`*^9, 3.717224574717731*^9, 3.717224612320283*^9, {
   3.717224800254018*^9, 3.717224806799741*^9}, 3.7172248580805807`*^9, 
   3.717227100344344*^9, 3.741669596649084*^9},
 CellLabel->"Out[5]=",
 CellID->1113720663,ExpressionUUID->"1665262d-e6b9-4025-bbb8-ec16b64b3243"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Two comments before we proceed further: We chose to remove the extinct \
reflections before we merged the symmetry equivalents, but this could have \
been done in the opposite order. The other thing is that we could also had \
used the name of the crystal directly instead of its space group. In the next \
lines we do this, and see that we end up with the same four reflections ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", " ", "0", " ", "2"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"12f96e59-4861-4803-a8a0-361b5528e094"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1", " ", "1", " ", "1"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3de444af-1cef-4e58-9037-871f0166daaf"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", " ", "2", " ", "2"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"e4e8cb97-29cc-487d-b477-b4f0ee05101e"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", " ", "2", " ", "2"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6a1804c3-eb0e-445b-a66b-82d71c8f6198"],
 ":"
}], "Text",
 CellChangeTimes->{{3.717224621186328*^9, 3.717224638178329*^9}, {
  3.7172249248605223`*^9, 3.7172249322837677`*^9}, {3.717224971971089*^9, 
  3.717225138842181*^9}},
 CellID->1365164161,ExpressionUUID->"be637b44-5302-40fb-8020-51b225a169bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"hkl", "=", 
   RowBox[{"ReflectionList", "[", "2", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"hkl", "=", 
  RowBox[{"MergeSymmetryEquivalentReflections", "[", 
   RowBox[{"\"\<SodiumChloride\>\"", ",", "hkl"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.71722331879874*^9, 3.7172233281191607`*^9}, {
   3.7172234205432568`*^9, 3.7172234209810753`*^9}, {3.717224104277792*^9, 
   3.7172241190052433`*^9}, {3.7172245767053022`*^9, 
   3.7172245778355923`*^9}, {3.71722472858501*^9, 3.717224734132667*^9}, {
   3.717224767921194*^9, 3.7172247683370943`*^9}, 3.717224906287692*^9, 
   3.7416696152164917`*^9},
 CellLabel->"In[6]:=",
 CellID->1003033997,ExpressionUUID->"46071b2f-6a36-4877-982c-3787f0c818a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.71722332857734*^9, 3.7172234214149637`*^9, 3.7172239935944853`*^9, 
   3.71722402530997*^9, 3.717224108229879*^9, 3.717224578115069*^9, {
   3.7172247344271593`*^9, 3.7172247685470877`*^9}, 3.7172248218282413`*^9, 
   3.717224861294956*^9, 3.717224906568254*^9, 3.717227100527315*^9, 
   3.741669617426002*^9},
 CellLabel->"Out[7]=",
 CellID->861959179,ExpressionUUID->"c76685e9-6af3-4f67-8f25-3b5972002d54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"extinct", "=", 
  RowBox[{"SystematicAbsentQ", "[", 
   RowBox[{"\"\<SodiumChloride\>\"", ",", "hkl"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.717221403485207*^9, 3.717221420894548*^9}, {
  3.717221499332881*^9, 3.717221500971236*^9}},
 CellLabel->"In[8]:=",
 CellID->634366406,ExpressionUUID->"2259d383-4f86-45f4-93d7-7b26219b7a80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "True", ",", "False", ",", "True", ",", "True", ",", "False", ",", "False", 
   ",", "True", ",", "True", ",", "False"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7172214212878933`*^9, {3.717221480108943*^9, 3.7172215012493763`*^9}, 
   3.717223422915185*^9, {3.717224745400341*^9, 3.7172247696930647`*^9}, 
   3.717224827977372*^9, 3.717224863057569*^9, 3.717227100681027*^9, 
   3.7416696204173937`*^9},
 CellLabel->"Out[8]=",
 CellID->359190946,ExpressionUUID->"2b9dc7d7-511c-41d0-95b2-952a7bd6f681"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Pick", "[", 
  RowBox[{"hkl", ",", "extinct", ",", "False"}], "]"}]], "Input",
 CellChangeTimes->{{3.717224890526002*^9, 3.717224895164806*^9}},
 CellLabel->"In[9]:=",
 CellID->1613558772,ExpressionUUID->"0dff93dc-f8af-4090-a8ed-a2fb03e138e6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7172248953772593`*^9, 3.717227100829454*^9, 
  3.741669622163765*^9},
 CellLabel->"Out[9]=",
 CellID->1034805328,ExpressionUUID->"aa5ca45c-16a8-4ff2-b46a-ff4b4f09b15d"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Another thing to consider is the Bragg angles of the reflections. The \
wavelength will limit how far out in reciprocal space we will see \
reflections. For example:\
\>", "Text",
 CellChangeTimes->{{3.717225170440564*^9, 3.7172251923423653`*^9}, {
  3.717225258334402*^9, 3.7172253458272333`*^9}, {3.717226293911491*^9, 
  3.7172262983829727`*^9}},
 CellID->1841698457,ExpressionUUID->"0915c433-d901-477d-a113-238f3d1539e8"],

Cell[CellGroupData[{

Cell[TextData[{
 "Given the wavelength ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Lambda]", "=", 
    RowBox[{"1.54", " ", "\[CapitalARing]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"0b6af813-47a4-4a4e-bcb5-7eff861f2eb4"],
 " (",
 Cell[BoxData[
  FormBox[
   RowBox[{"Cu", " ", 
    SubscriptBox["K", "\[Alpha]1"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"b1e26f40-c6f1-405e-aaed-76c4e697d73e"],
 "), we see that the reflection ",
 Cell[BoxData[
  FormBox[
   RowBox[{"3", " ", "3", " ", "5"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"632464c8-052a-41ef-9652-da7dd73a633f"],
 " is OK, but the higher indices of the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"5", " ", "5", " ", "7"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"f70ddea4-270a-4846-a28a-1d21d26a9559"],
 " reflection yields an undefined angle:"
}], "MathCaption",
 CellChangeTimes->{{3.717225418516447*^9, 3.7172254256256123`*^9}, {
  3.717225499450755*^9, 3.7172256649430227`*^9}},
 CellID->313492412,ExpressionUUID->"79e965ab-e31e-449a-b2ce-b26be260eec8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BraggAngle", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", "1.54", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "3", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "5", ",", "7"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.717221548699349*^9, 3.717221559281389*^9}, {
  3.717221899505548*^9, 3.7172219234876623`*^9}, {3.717222234946403*^9, 
  3.717222239352098*^9}, {3.7172263113201637`*^9, 3.717226318263384*^9}},
 CellLabel->"In[10]:=",
 CellID->1356726882,ExpressionUUID->"19431ac2-0733-43b5-9944-acd75908b56c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "63.5409623170986`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", "Undefined"}], "}"}]], "Output",
 CellChangeTimes->{{3.717221911821315*^9, 3.7172219237050037`*^9}, 
   3.7172222396861134`*^9, {3.717222955239004*^9, 3.717222993061256*^9}, {
   3.717226318864245*^9, 3.717226340169313*^9}, 3.71722710101024*^9, 
   3.7416696344376717`*^9},
 CellLabel->"Out[10]=",
 CellID->585354733,ExpressionUUID->"a9e07cb6-54a6-438d-8d61-440bfedf7f26"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Thus, we also need to run our reflections through this check. Since we only \
generated reflections with a maximum index ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d213c865-98c6-45da-94e6-b2168078e5e8"],
 ", we won't have this problem with the four reflections we got. This begs \
another question: Which maximum index is appropriate for our crystal, given a \
certain wavelength? Luckily, the function ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"ffead78d-bed4-4037-bf9c-938b67d7c07a"],
 " does this and above steps automatically."
}], "Text",
 CellChangeTimes->{{3.717225759195922*^9, 3.717225803353692*^9}, {
  3.71722620863585*^9, 3.71722621587348*^9}, {3.7172264127594748`*^9, 
  3.717226444788278*^9}, {3.717226519098833*^9, 3.717226568593948*^9}},
 CellID->1041931239,ExpressionUUID->"91a41ec6-47f3-4c1f-ba3f-3902c8a7913b"],

Cell[CellGroupData[{

Cell[TextData[{
 "Generating reflections for sodium chloride, given the wavelength ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Lambda]", "=", 
    RowBox[{"1.54", " ", "\[CapitalARing]"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"8a49ff93-acc2-45d0-ba4a-fe9ebca060c4"],
 ":"
}], "MathCaption",
 CellChangeTimes->{{3.717226573842394*^9, 3.717226590682158*^9}},
 CellID->1402210381,ExpressionUUID->"0df1a24f-b0d6-47b6-a12b-8990b8df7379"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", "1.54"}], "]"}]], "Input",
 CellChangeTimes->{{3.7172265928986883`*^9, 3.7172266010408173`*^9}},
 CellLabel->"In[11]:=",
 CellID->1898417409,ExpressionUUID->"2d6bb51e-1b2c-43dc-8ef1-3cfe8c042fec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.717226601616609*^9, 3.717227101419154*^9, 
  3.7416696649142447`*^9},
 CellLabel->"Out[11]=",
 CellID->1100511139,ExpressionUUID->"4bdf45a4-de7f-4c38-9fdb-d45674ec67d0"]
}, Open  ]]
}, Open  ]],

Cell["\<\
You may have notices a progress bar during the computations. If we have a \
crystal with low symmetry or a very small wavelength, the process could take \
a little while.\
\>", "Text",
 CellChangeTimes->{{3.7172266153535013`*^9, 3.7172266716710863`*^9}},
 CellID->1286366377,ExpressionUUID->"c4f2414e-de3f-4e54-804f-e694089ea0d2"],

Cell[CellGroupData[{

Cell["A crystal with low symmetry (space group #14):", "MathCaption",
 CellChangeTimes->{{3.717226680374855*^9, 3.71722668663864*^9}, {
  3.717226721725782*^9, 3.7172267250541983`*^9}},
 CellID->1900682364,ExpressionUUID->"c191f36a-623b-4a0d-87d0-26da356c98ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ReflectionList", "[", 
   RowBox[{"\"\<OxalicAcid\>\"", ",", "1.54"}], "]"}], "//", 
  "Shallow"}]], "Input",
 CellChangeTimes->{{3.717226688703783*^9, 3.7172267200542107`*^9}, {
   3.7172269761062937`*^9, 3.717226987128413*^9}, 3.741669881289754*^9},
 CellLabel->"In[18]:=",
 CellID->1263461432,ExpressionUUID->"9b056b69-5d95-4e8b-9964-890a63cf1c9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"\[LeftSkeleton]", "127", "\[RightSkeleton]"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.7172269784832993`*^9, 3.717226987956163*^9}, 
   3.71722710214333*^9, 3.741669883309434*^9},
 CellLabel->"Out[18]//Shallow=",
 CellID->1765837619,ExpressionUUID->"77157edf-8200-4abb-b324-1cc7f0c0bd7a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Relatively short wavelength:", "MathCaption",
 CellChangeTimes->{{3.717226680374855*^9, 3.71722668663864*^9}, {
  3.717226721725782*^9, 3.7172267250541983`*^9}, {3.717226997657854*^9, 
  3.717227004183551*^9}},
 CellID->971497286,ExpressionUUID->"6f9e76b3-8917-44aa-93c1-aa744f626424"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ReflectionList", "[", 
   RowBox[{"\"\<SodiumChloride\>\"", ",", "0.25"}], "]"}], "//", 
  "Shallow"}]], "Input",
 CellChangeTimes->{{3.717226688703783*^9, 3.7172267200542107`*^9}, {
   3.7172269761062937`*^9, 3.7172270112258244`*^9}, 3.717227061761161*^9},
 CellLabel->"In[19]:=",
 CellID->636717661,ExpressionUUID->"317604af-3753-47aa-955e-7454390ff1ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"\[LeftSkeleton]", "1039", "\[RightSkeleton]"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.7172269784832993`*^9, 3.717226987956163*^9}, 
   3.71722705332338*^9, 3.717227091926895*^9, 3.717227132407318*^9, 
   3.741669920162367*^9},
 CellLabel->"Out[19]//Shallow=",
 CellID->1953650870,ExpressionUUID->"5abe4199-48fb-4af7-8203-fc2a1d5a6d89"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Formatting the reflections", "Section",
 CellChangeTimes->{{3.71722087168466*^9, 3.717220892819002*^9}},
 CellID->138763261,ExpressionUUID->"b3975533-0547-43be-a4c3-2f2ca1f6ad97"],

Cell["\<\
Once we have generated reflections, we may wish to present them in for \
instance a table.\
\>", "Text",
 CellChangeTimes->{{3.717227122954317*^9, 3.7172271907477913`*^9}},
 CellID->1550736978,ExpressionUUID->"42d11ddc-8dc7-45a0-ab58-7e82313ef895"],

Cell[CellGroupData[{

Cell[TextData[{
 "Twelve random reflections with maximum index ",
 Cell[BoxData[
  FormBox["7", TraditionalForm]], "InlineMath",ExpressionUUID->
  "2640c2a6-351b-46f1-bb60-8497b64755ab"],
 ":"
}], "MathCaption",
 CellChangeTimes->{{3.7172275405720043`*^9, 3.7172275627923203`*^9}, {
  3.71722827943692*^9, 3.717228279788786*^9}},
 CellID->395965241,ExpressionUUID->"fddd3ef7-0a91-4702-8ee2-73eba199bafb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hkl", "=", 
  RowBox[{"RandomChoice", "[", 
   RowBox[{
    RowBox[{"ReflectionList", "[", "5", "]"}], ",", "12"}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.717227307648478*^9, 3.717227471833808*^9}, {
  3.717227506166691*^9, 3.717227528262412*^9}},
 CellLabel->"In[1]:=",
 CellID->2110366032,ExpressionUUID->"5a501f4f-a024-4bf7-9241-2e0dee3f4529"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "5"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5"}], ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "0", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.717227397091962*^9, 3.7172274721087923`*^9}, {
   3.7172275126947393`*^9, 3.717227530863258*^9}, {3.717238530970538*^9, 
   3.7172385514928637`*^9}, 3.718429368906275*^9, 3.7184294411564837`*^9, 
   3.7184295254634953`*^9, {3.718429641692759*^9, 3.718429674414369*^9}, 
   3.718430383550881*^9, 3.7416700061295347`*^9},
 CellLabel->"Out[1]=",
 CellID->1151145671,ExpressionUUID->"b3c245ab-eda1-4154-843e-40e71b162928"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "We can make formatted versions of the reflections (normal crystallographic \
notation) with ",
 Cell[BoxData[
  ButtonBox["ToMiller",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToMiller"]], "InlineFormula",ExpressionUUID->
  "3b08700d-d37f-4028-9a4a-0620717a89b1"],
 ". Here the function is mapped over each reflection:"
}], "MathCaption",
 CellChangeTimes->{{3.7172279593004313`*^9, 3.717228054195833*^9}},
 CellID->939397198,ExpressionUUID->"de09efd8-f1da-4576-a6d8-20a77d4fd922"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"miller", "=", 
  RowBox[{"MillerNotationToString", "/@", "hkl"}]}]], "Input",
 CellChangeTimes->{{3.717227326985434*^9, 3.717227338336622*^9}, {
  3.74166997673604*^9, 3.741669979173521*^9}},
 CellLabel->"In[2]:=",
 CellID->1462664324,ExpressionUUID->"ed8176eb-b76b-45c1-9acd-cfdf3208c603"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"(\\!\\(\\*OverscriptBox[\\(1\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\)5)\"\>", 
   ",", "\<\"(130)\"\>", 
   ",", "\<\"(2\\!\\(\\*OverscriptBox[\\(2\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\))\"\>", 
   ",", "\<\"(345)\"\>", 
   ",", "\<\"(2\\!\\(\\*OverscriptBox[\\(4\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\))\"\>", 
   ",", "\<\"(\\!\\(\\*OverscriptBox[\\(4\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)\\!\\(\\*OverscriptBox[\
\\(3\\), \\(_\\)]\\))\"\>", 
   ",", "\<\"(\\!\\(\\*OverscriptBox[\\(4\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(5\\), \\(_\\)]\\)4)\"\>", 
   ",", "\<\"(0\\!\\(\\*OverscriptBox[\\(3\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\))\"\>", 
   ",", "\<\"(\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\)33)\"\>", 
   ",", "\<\"(\\!\\(\\*OverscriptBox[\\(5\\), \\(_\\)]\\)44)\"\>", 
   ",", "\<\"(42\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\))\"\>", 
   ",", "\<\"(\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)05)\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.717227329553405*^9, 3.717227338544097*^9}, 
   3.71722756869806*^9, {3.717238531138055*^9, 3.717238551599842*^9}, 
   3.718429370459383*^9, 3.718429441306631*^9, 3.718429525632552*^9, {
   3.718429641848721*^9, 3.7184296745834303`*^9}, 3.7184303837207212`*^9, 
   3.7416700062810087`*^9},
 CellLabel->"Out[2]=",
 CellID->625116674,ExpressionUUID->"cced6bc6-0815-49fc-92fd-5ee275df892a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Let us make a table over the reflections and their corresponding Bragg \
angles (",
 StyleBox["note: we do not care about extinct reflections at the moment",
  FontSlant->"Italic"],
 "):"
}], "MathCaption",
 CellChangeTimes->{{3.717228059794319*^9, 3.717228093144746*^9}, {
  3.717228242085791*^9, 3.717228258461184*^9}},
 CellID->959012233,ExpressionUUID->"fae9ec21-ac88-45a1-b0db-c11309f42850"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"angle", "=", 
  RowBox[{"BraggAngle", "[", 
   RowBox[{"\"\<SodiumChloride\>\"", ",", "1.54", ",", "hkl"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.71722767366733*^9, 3.7172276968663893`*^9}},
 CellLabel->"In[3]:=",
 CellID->194728893,ExpressionUUID->"3005ff68-69b7-4b17-acc3-cfe2d78b1537"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "48.39820157249584`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "25.577362171493192`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "34.257024540346485`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "74.87882277885838`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "47.324851428425795`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "60.9487142501747`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", "Undefined", ",", 
   TemplateBox[{
    "43.04904241039642`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "36.51961186841164`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", "Undefined", ",", 
   TemplateBox[{
    "38.72883450450819`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "60.9487142501747`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7172276971163073`*^9, 3.717227751782242*^9, {3.7172385319280376`*^9, 
   3.717238551736134*^9}, 3.7184293726783113`*^9, 3.718429441473493*^9, {
   3.718429519922587*^9, 3.718429525834054*^9}, {3.7184296420449343`*^9, 
   3.718429674775693*^9}, 3.718430383921529*^9, 3.741670006429878*^9},
 CellLabel->"Out[3]=",
 CellID->845938794,ExpressionUUID->"d0dd67f9-2bc0-4e29-9c3e-a9e90011a5d4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Let us gather the data into one list, and also sort the data by increasing \
Bragg angle (while pushing the ",
 Cell[BoxData[
 "Undefined"], "InlineFormula",ExpressionUUID->
  "344a91d0-9a83-44b9-9ad6-bdda81aa4f55"],
 " to the bottom):"
}], "MathCaption",
 CellChangeTimes->{{3.718429346648802*^9, 3.718429396112776*^9}, {
  3.718430393995986*^9, 3.7184304164104958`*^9}},
 CellID->298077865,ExpressionUUID->"854e4b8a-3400-473e-b6e6-7db80112b4bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"miller", ",", "hkl", ",", "angle"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"SortBy", "[", 
     RowBox[{"data", ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"QuantityQ", "@", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ",", 
         RowBox[{"Abs", "@", 
          RowBox[{"#", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], "&"}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<(hkl)\>\"", ",", "\"\<{h,k,l}\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(B\)]\)\>\""}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"Dividers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.717227831246407*^9, 3.717227833806902*^9}, {
  3.718429398926742*^9, 3.718429426884881*^9}, {3.7184295401301603`*^9, 
  3.718429551723713*^9}, {3.718429624488863*^9, 3.7184296281614532`*^9}, {
  3.718429786567163*^9, 3.718429805395562*^9}, {3.718430211627215*^9, 
  3.718430378014027*^9}},
 CellLabel->"In[4]:=",
 CellID->1696103385,ExpressionUUID->"7c054399-5dc5-43f3-9f39-beae4e38d720"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"(hkl)\"\>", "\<\"{h,k,l}\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\
\[Theta]\\), \\(B\\)]\\)\"\>"},
    {"\<\"(130)\"\>", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "0"}], "}"}], 
     TemplateBox[{
      "25.577362171493192`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(2\\!\\(\\*OverscriptBox[\\(2\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\))\"\>", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "3"}]}], "}"}], 
     TemplateBox[{
      "34.257024540346485`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\)33)\"\>", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "3", ",", "3"}], "}"}], 
     TemplateBox[{
      "36.51961186841164`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(42\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\))\"\>", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2", ",", 
       RowBox[{"-", "1"}]}], "}"}], 
     TemplateBox[{
      "38.72883450450819`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(0\\!\\(\\*OverscriptBox[\\(3\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\))\"\>", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "3"}], ",", 
       RowBox[{"-", "4"}]}], "}"}], 
     TemplateBox[{
      "43.04904241039642`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(2\\!\\(\\*OverscriptBox[\\(4\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\))\"\>", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"-", "4"}], ",", 
       RowBox[{"-", "3"}]}], "}"}], 
     TemplateBox[{
      "47.324851428425795`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\)\\!\\(\\*OverscriptBox[\
\\(2\\), \\(_\\)]\\)5)\"\>", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "2"}], ",", "5"}], "}"}], 
     TemplateBox[{
      "48.39820157249584`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)05)\"\>", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "4"}], ",", "0", ",", "5"}], "}"}], 
     TemplateBox[{
      "60.9487142501747`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)\\!\\(\\*OverscriptBox[\
\\(4\\), \\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\))\"\>", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "4"}], ",", 
       RowBox[{"-", "4"}], ",", 
       RowBox[{"-", "3"}]}], "}"}], 
     TemplateBox[{
      "60.9487142501747`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(345)\"\>", 
     RowBox[{"{", 
      RowBox[{"3", ",", "4", ",", "5"}], "}"}], 
     TemplateBox[{
      "74.87882277885838`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
       "degrees","\"AngularDegrees\""},
      "QuantityPostfix"]},
    {"\<\"(\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)\\!\\(\\*OverscriptBox[\
\\(5\\), \\(_\\)]\\)4)\"\>", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "4"}], ",", 
       RowBox[{"-", "5"}], ",", "4"}], "}"}], "Undefined"},
    {"\<\"(\\!\\(\\*OverscriptBox[\\(5\\), \\(_\\)]\\)44)\"\>", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5"}], ",", "4", ",", "4"}], "}"}], "Undefined"}
   },
   AutoDelete->False,
   GridBoxDividers->{"Columns" -> {False, True}, "Rows" -> {False, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.718430224996274*^9, 3.71843038409511*^9}, 
   3.7416700065796833`*^9},
 CellLabel->"Out[6]=",
 CellID->1351567618,ExpressionUUID->"c359eb6f-0683-42b0-9e88-037467088709"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "If we want to deformat the Miller indices, we use ",
 Cell[BoxData[
  ButtonBox["FromMiller",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/FromMiller"]], "InlineFormula",
  ExpressionUUID->"38aed569-647e-4e60-a4ac-d47ede8f0aa0"],
 ":"
}], "MathCaption",
 CellChangeTimes->{{3.7172278983577223`*^9, 3.717227951795224*^9}, 
   3.717228103335436*^9},
 CellID->1314978241,ExpressionUUID->"bf711450-f92a-46ce-b88b-5d41ed941960"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MillerNotationToList", "/@", "miller"}]], "Input",
 CellChangeTimes->{{3.717228106875422*^9, 3.7172281099523153`*^9}, {
  3.7416699982152443`*^9, 3.741670002013486*^9}},
 CellLabel->"In[7]:=",
 CellID->1678480760,ExpressionUUID->"1ead128d-3861-4c3c-a97d-c3319011a0ae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"-1\"\>", ",", "\<\"-2\"\>", ",", "\<\"5\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"1\"\>", ",", "\<\"3\"\>", ",", "\<\"0\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"2\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"3\"\>", ",", "\<\"4\"\>", ",", "\<\"5\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"2\"\>", ",", "\<\"-4\"\>", ",", "\<\"-3\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-3\"\>"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"\<\"-4\"\>", ",", "\<\"-5\"\>", ",", "\<\"4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"0\"\>", ",", "\<\"-3\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"-1\"\>", ",", "\<\"3\"\>", ",", "\<\"3\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"-5\"\>", ",", "\<\"4\"\>", ",", "\<\"4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"4\"\>", ",", "\<\"2\"\>", ",", "\<\"-1\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"-4\"\>", ",", "\<\"0\"\>", ",", "\<\"5\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.717228110290312*^9, {3.7172385324397306`*^9, 3.7172385520265017`*^9}, 
   3.7184294418664083`*^9, 3.718429526981935*^9, {3.7184296424978313`*^9, 
   3.718429675682436*^9}, 3.718430384256545*^9, 3.7416700067463083`*^9},
 CellLabel->"Out[7]=",
 CellID->1862421407,ExpressionUUID->"ebd7469f-e14f-4497-9101-8ccdd07cf142"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Working with formatted strings", "Section",
 CellChangeTimes->{{3.716793755210504*^9, 3.71679376876162*^9}, {
  3.718429087712513*^9, 3.7184290937254963`*^9}},
 CellID->1476721470,ExpressionUUID->"8f69b143-ea58-4bff-9793-fddb61e7d33d"],

Cell[CellGroupData[{

Cell[TextData[{
 "The main entry keys of ",
 Cell[BoxData[
  ButtonBox["$PointGroups",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$PointGroups"]], "InlineFormula",
  ExpressionUUID->"2ab149ef-9054-46d7-a4f4-030cc1d3bbbb"],
 " and ",
 Cell[BoxData[
  ButtonBox["$SpaceGroups",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$SpaceGroups"]], "InlineFormula",
  ExpressionUUID->"39b32739-aa19-4187-8ede-07402dcdd284"],
 " are non- formatted strings, e.g ",
 Cell[BoxData[
 "\"\<P21/m\>\""], "InlineFormula",ExpressionUUID->
  "14264aa9-18f0-4e1b-ab1f-7dac177717eb"],
 " and ",
 Cell[BoxData[
 "\"\<I-42d\>\""], "InlineFormula",ExpressionUUID->
  "6cfbff08-4f95-49d3-ac6d-dad653d60f2a"],
 ":"
}], "Text",
 CellChangeTimes->{{3.7167939855194807`*^9, 3.7167940110833607`*^9}, 
   3.716794082524272*^9, {3.7167946282391157`*^9, 3.716794648028922*^9}, {
   3.716794679869585*^9, 3.7167947404189053`*^9}, {3.718430438338827*^9, 
   3.718430476715287*^9}},
 CellID->507057234,ExpressionUUID->"1428144d-1a49-4feb-8add-ac0826ff24ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "@", "$SpaceGroups"}]], "Input",
 CellChangeTimes->{{3.7167946720767193`*^9, 3.7167946739630013`*^9}, {
  3.718430496911214*^9, 3.718430497395327*^9}},
 CellLabel->"In[1]:=",
 CellID->1892818732,ExpressionUUID->"2304ccd7-d9ae-4550-bc78-c261598a02b6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P1\"\>", ",", "\<\"P-1\"\>", ",", "\<\"P2\"\>", 
   ",", "\<\"P21\"\>", ",", "\<\"C2\"\>", ",", "\<\"Pm\"\>", 
   ",", "\<\"Pc\"\>", ",", "\<\"Cm\"\>", ",", "\<\"Cc\"\>", 
   ",", "\<\"P2/m\"\>", ",", "\<\"P21/m\"\>", ",", "\<\"C2/m\"\>", 
   ",", "\<\"P2/c\"\>", ",", "\<\"P21/c\"\>", ",", "\<\"C2/c\"\>", 
   ",", "\<\"P222\"\>", ",", "\<\"P2221\"\>", ",", "\<\"P21212\"\>", 
   ",", "\<\"P212121\"\>", ",", "\<\"C2221\"\>", ",", "\<\"C222\"\>", 
   ",", "\<\"F222\"\>", ",", "\<\"I222\"\>", ",", "\<\"I212121\"\>", 
   ",", "\<\"Pmm2\"\>", ",", "\<\"Pmc21\"\>", ",", "\<\"Pcc2\"\>", 
   ",", "\<\"Pma2\"\>", ",", "\<\"Pca21\"\>", ",", "\<\"Pnc2\"\>", 
   ",", "\<\"Pmn21\"\>", ",", "\<\"Pba2\"\>", ",", "\<\"Pna21\"\>", 
   ",", "\<\"Pnn2\"\>", ",", "\<\"Cmm2\"\>", ",", "\<\"Cmc21\"\>", 
   ",", "\<\"Ccc2\"\>", ",", "\<\"Amm2\"\>", ",", "\<\"Aem2\"\>", 
   ",", "\<\"Ama2\"\>", ",", "\<\"Aea2\"\>", ",", "\<\"Fmm2\"\>", 
   ",", "\<\"Fdd2\"\>", ",", "\<\"Imm2\"\>", ",", "\<\"Iba2\"\>", 
   ",", "\<\"Ima2\"\>", ",", "\<\"Pmmm\"\>", ",", "\<\"Pnnn\"\>", 
   ",", "\<\"Pccm\"\>", ",", "\<\"Pban\"\>", ",", "\<\"Pmma\"\>", 
   ",", "\<\"Pnna\"\>", ",", "\<\"Pmna\"\>", ",", "\<\"Pcca\"\>", 
   ",", "\<\"Pbam\"\>", ",", "\<\"Pccn\"\>", ",", "\<\"Pbcm\"\>", 
   ",", "\<\"Pnnm\"\>", ",", "\<\"Pmmn\"\>", ",", "\<\"Pbcn\"\>", 
   ",", "\<\"Pbca\"\>", ",", "\<\"Pnma\"\>", ",", "\<\"Cmcm\"\>", 
   ",", "\<\"Cmce\"\>", ",", "\<\"Cmmm\"\>", ",", "\<\"Cccm\"\>", 
   ",", "\<\"Cmme\"\>", ",", "\<\"Ccce\"\>", ",", "\<\"Fmmm\"\>", 
   ",", "\<\"Fddd\"\>", ",", "\<\"Immm\"\>", ",", "\<\"Ibam\"\>", 
   ",", "\<\"Ibca\"\>", ",", "\<\"Imma\"\>", ",", "\<\"P4\"\>", 
   ",", "\<\"P41\"\>", ",", "\<\"P42\"\>", ",", "\<\"P43\"\>", 
   ",", "\<\"I4\"\>", ",", "\<\"I41\"\>", ",", "\<\"P-4\"\>", 
   ",", "\<\"I-4\"\>", ",", "\<\"P4/m\"\>", ",", "\<\"P42/m\"\>", 
   ",", "\<\"P4/n\"\>", ",", "\<\"P42/n\"\>", ",", "\<\"I4/m\"\>", 
   ",", "\<\"I41/a\"\>", ",", "\<\"P422\"\>", ",", "\<\"P4212\"\>", 
   ",", "\<\"P4122\"\>", ",", "\<\"P41212\"\>", ",", "\<\"P4222\"\>", 
   ",", "\<\"P42212\"\>", ",", "\<\"P4322\"\>", ",", "\<\"P43212\"\>", 
   ",", "\<\"I422\"\>", ",", "\<\"I4122\"\>", ",", "\<\"P4mm\"\>", 
   ",", "\<\"P4bm\"\>", ",", "\<\"P42cm\"\>", ",", "\<\"P42nm\"\>", 
   ",", "\<\"P4cc\"\>", ",", "\<\"P4nc\"\>", ",", "\<\"P43mc\"\>", 
   ",", "\<\"P42bc\"\>", ",", "\<\"I4mm\"\>", ",", "\<\"I4cm\"\>", 
   ",", "\<\"I41md\"\>", ",", "\<\"I41cd\"\>", ",", "\<\"P-42m\"\>", 
   ",", "\<\"P-42c\"\>", ",", "\<\"P-421m\"\>", ",", "\<\"P-421c\"\>", 
   ",", "\<\"P-4m2\"\>", ",", "\<\"P-4c2\"\>", ",", "\<\"P-4b2\"\>", 
   ",", "\<\"P-4n2\"\>", ",", "\<\"I-4m2\"\>", ",", "\<\"I-4c2\"\>", 
   ",", "\<\"I-42m\"\>", ",", "\<\"I-42d\"\>", ",", "\<\"P4/mmm\"\>", 
   ",", "\<\"P4/mcc\"\>", ",", "\<\"P4/nbm\"\>", ",", "\<\"P4/nnc\"\>", 
   ",", "\<\"P4/mbm\"\>", ",", "\<\"P4/mnc\"\>", ",", "\<\"P4/nmm\"\>", 
   ",", "\<\"P4/ncc\"\>", ",", "\<\"P42/mmc\"\>", ",", "\<\"P42/mcm\"\>", 
   ",", "\<\"P42/nbc\"\>", ",", "\<\"P42/nnm\"\>", ",", "\<\"P42/mbc\"\>", 
   ",", "\<\"P42/mnm\"\>", ",", "\<\"P42/nmc\"\>", ",", "\<\"P42/ncm\"\>", 
   ",", "\<\"I4/mmm\"\>", ",", "\<\"I4/mcm\"\>", ",", "\<\"I41/amd\"\>", 
   ",", "\<\"I41/acd\"\>", ",", "\<\"P3\"\>", ",", "\<\"P31\"\>", 
   ",", "\<\"P32\"\>", ",", "\<\"R3\"\>", ",", "\<\"P-3\"\>", 
   ",", "\<\"R-3\"\>", ",", "\<\"P312\"\>", ",", "\<\"P321\"\>", 
   ",", "\<\"P3112\"\>", ",", "\<\"P3121\"\>", ",", "\<\"P3212\"\>", 
   ",", "\<\"P3221\"\>", ",", "\<\"R32\"\>", ",", "\<\"P3m1\"\>", 
   ",", "\<\"P31m\"\>", ",", "\<\"P3c1\"\>", ",", "\<\"P31c\"\>", 
   ",", "\<\"R3m\"\>", ",", "\<\"R3c\"\>", ",", "\<\"P-31m\"\>", 
   ",", "\<\"P-31c\"\>", ",", "\<\"P-3m1\"\>", ",", "\<\"P-3c1\"\>", 
   ",", "\<\"R-3m\"\>", ",", "\<\"R-3c\"\>", ",", "\<\"P6\"\>", 
   ",", "\<\"P61\"\>", ",", "\<\"P65\"\>", ",", "\<\"P62\"\>", 
   ",", "\<\"P64\"\>", ",", "\<\"P63\"\>", ",", "\<\"P-6\"\>", 
   ",", "\<\"P6/m\"\>", ",", "\<\"P63/m\"\>", ",", "\<\"P622\"\>", 
   ",", "\<\"P6122\"\>", ",", "\<\"P6522\"\>", ",", "\<\"P6222\"\>", 
   ",", "\<\"P6422\"\>", ",", "\<\"P6322\"\>", ",", "\<\"P6mm\"\>", 
   ",", "\<\"P6cc\"\>", ",", "\<\"P63cm\"\>", ",", "\<\"P63mc\"\>", 
   ",", "\<\"P-6m2\"\>", ",", "\<\"P-6c2\"\>", ",", "\<\"P-62m\"\>", 
   ",", "\<\"P-62c\"\>", ",", "\<\"P6/mmm\"\>", ",", "\<\"P6/mcc\"\>", 
   ",", "\<\"P63/mcm\"\>", ",", "\<\"P63/mmc\"\>", ",", "\<\"P23\"\>", 
   ",", "\<\"F23\"\>", ",", "\<\"I23\"\>", ",", "\<\"P213\"\>", 
   ",", "\<\"I213\"\>", ",", "\<\"Pm-3\"\>", ",", "\<\"Pn-3\"\>", 
   ",", "\<\"Fm-3\"\>", ",", "\<\"Fd-3\"\>", ",", "\<\"Im-3\"\>", 
   ",", "\<\"Pa-3\"\>", ",", "\<\"Ia-3\"\>", ",", "\<\"P432\"\>", 
   ",", "\<\"P4232\"\>", ",", "\<\"F432\"\>", ",", "\<\"F4132\"\>", 
   ",", "\<\"I432\"\>", ",", "\<\"P4332\"\>", ",", "\<\"P4132\"\>", 
   ",", "\<\"I4132\"\>", ",", "\<\"P-43m\"\>", ",", "\<\"F-43m\"\>", 
   ",", "\<\"I-43m\"\>", ",", "\<\"P-43n\"\>", ",", "\<\"F-43c\"\>", 
   ",", "\<\"I-43d\"\>", ",", "\<\"Pm-3m\"\>", ",", "\<\"Pn-3n\"\>", 
   ",", "\<\"Pm-3n\"\>", ",", "\<\"Pn-3m\"\>", ",", "\<\"Fm-3m\"\>", 
   ",", "\<\"Fm-3c\"\>", ",", "\<\"Fd-3m\"\>", ",", "\<\"Fd-3c\"\>", 
   ",", "\<\"Im-3m\"\>", ",", "\<\"Ia-3d\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.7167946744459057`*^9, 3.716794818415224*^9, 
  3.7184304979249353`*^9, 3.718430660538219*^9},
 CellLabel->"Out[1]=",
 CellID->737470407,ExpressionUUID->"00c2b30c-dae5-4982-ae83-4956413969b6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "All entries in $SpaceGroups have the corresponding formatted symbol stored \
under the key ",
 Cell[BoxData[
  RowBox[{"[", 
   RowBox[{"\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}]], "InlineFormula",
  ExpressionUUID->"35696ee1-0f22-4592-bce5-718e34812233"],
 "."
}], "Text",
 CellChangeTimes->{{3.7184305157847767`*^9, 3.718430577622973*^9}},
 CellID->885083924,ExpressionUUID->"25ffd494-8ae6-4259-80ef-c086d1814811"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Values", "@", 
  RowBox[{"$SpaceGroups", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "\"\<Name\>\"", ",", "\"\<Symbol\>\""}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.718430597749187*^9, 3.71843061013023*^9}},
 CellLabel->"In[2]:=",
 CellID->985910860,ExpressionUUID->"5f181e7d-7f2e-46ed-a029-7753d96ec3c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P1\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"P2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"C2\"\>", ",", "\<\"Pm\"\>", ",", "\<\"Pc\"\>", ",", "\<\"Cm\"\>",
    ",", "\<\"Cc\"\>", ",", "\<\"P2/m\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/m\"\>", 
   ",", "\<\"C2/m\"\>", ",", "\<\"P2/c\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/c\"\>", 
   ",", "\<\"C2/c\"\>", ",", "\<\"P222\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P222\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \
\\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \
\\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \
\\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C222\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"C222\"\>", ",", "\<\"F222\"\>", ",", "\<\"I222\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I2\\), \
\\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \
\\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"Pmm2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(Pmc2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"Pcc2\"\>", ",", "\<\"Pma2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(Pca2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"Pnc2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(Pmn2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"Pba2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(Pna2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"Pnn2\"\>", ",", "\<\"Cmm2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(Cmc2\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"Ccc2\"\>", ",", "\<\"Amm2\"\>", ",", "\<\"Aem2\"\>", 
   ",", "\<\"Ama2\"\>", ",", "\<\"Aea2\"\>", ",", "\<\"Fmm2\"\>", 
   ",", "\<\"Fdd2\"\>", ",", "\<\"Imm2\"\>", ",", "\<\"Iba2\"\>", 
   ",", "\<\"Ima2\"\>", ",", "\<\"Pmmm\"\>", ",", "\<\"Pnnn\"\>", 
   ",", "\<\"Pccm\"\>", ",", "\<\"Pban\"\>", ",", "\<\"Pmma\"\>", 
   ",", "\<\"Pnna\"\>", ",", "\<\"Pmna\"\>", ",", "\<\"Pcca\"\>", 
   ",", "\<\"Pbam\"\>", ",", "\<\"Pccn\"\>", ",", "\<\"Pbcm\"\>", 
   ",", "\<\"Pnnm\"\>", ",", "\<\"Pmmn\"\>", ",", "\<\"Pbcn\"\>", 
   ",", "\<\"Pbca\"\>", ",", "\<\"Pnma\"\>", ",", "\<\"Cmcm\"\>", 
   ",", "\<\"Cmce\"\>", ",", "\<\"Cmmm\"\>", ",", "\<\"Cccm\"\>", 
   ",", "\<\"Cmme\"\>", ",", "\<\"Ccce\"\>", ",", "\<\"Fmmm\"\>", 
   ",", "\<\"Fddd\"\>", ",", "\<\"Immm\"\>", ",", "\<\"Ibam\"\>", 
   ",", "\<\"Ibca\"\>", ",", "\<\"Imma\"\>", ",", "\<\"P4\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(3\\)]\\)\"\>", 
   ",", "\<\"I4\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"P4/m\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/m\"\>", 
   ",", "\<\"P4/n\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/n\"\>", 
   ",", "\<\"I4/m\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)/a\"\>", 
   ",", "\<\"P422\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P42\\), \\(1\\)]\\)2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(1\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \
\\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \
\\(2\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)2\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(3\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \
\\(3\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)2\"\>", 
   ",", "\<\"I422\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)22\"\>", 
   ",", "\<\"P4mm\"\>", ",", "\<\"P4bm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)cm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)nm\"\>", 
   ",", "\<\"P4cc\"\>", ",", "\<\"P4nc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)mc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)bc\"\>", 
   ",", "\<\"I4mm\"\>", ",", "\<\"I4cm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)md\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)cd\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)2m\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)2c\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \
\\(_\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)m\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \
\\(_\\)]\\)\\!\\(\\*SubscriptBox[\\(2\\), \\(1\\)]\\)c\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)m2\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)c2\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)b2\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)n2\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)m2\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)c2\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)2m\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)2d\"\>", 
   ",", "\<\"P4/mmm\"\>", ",", "\<\"P4/mcc\"\>", ",", "\<\"P4/nbm\"\>", 
   ",", "\<\"P4/nnc\"\>", ",", "\<\"P4/mbm\"\>", ",", "\<\"P4/mnc\"\>", 
   ",", "\<\"P4/nmm\"\>", ",", "\<\"P4/ncc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/mmc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/mcm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/nbc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/nnm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/mbc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/mnm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/nmc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)/ncm\"\>", 
   ",", "\<\"I4/mmm\"\>", ",", "\<\"I4/mcm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)/amd\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)/acd\"\>", 
   ",", "\<\"P3\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(2\\)]\\)\"\>", 
   ",", "\<\"R3\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"R\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"P312\"\>", ",", "\<\"P321\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(1\\)]\\)12\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(1\\)]\\)21\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(2\\)]\\)12\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(2\\)]\\)21\"\>", 
   ",", "\<\"R32\"\>", ",", "\<\"P3m1\"\>", ",", "\<\"P31m\"\>", 
   ",", "\<\"P3c1\"\>", ",", "\<\"P31c\"\>", ",", "\<\"R3m\"\>", 
   ",", "\<\"R3c\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)1m\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)1c\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m1\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)c1\"\>", 
   ",", "\<\"R\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>", 
   ",", "\<\"R\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)c\"\>", 
   ",", "\<\"P6\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(5\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(2\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(4\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(6\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"P6/m\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)/m\"\>", 
   ",", "\<\"P622\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(1\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(5\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(2\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(4\\)]\\)22\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)22\"\>", 
   ",", "\<\"P6mm\"\>", ",", "\<\"P6cc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)cm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)mc\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(6\\), \\(_\\)]\\)m2\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(6\\), \\(_\\)]\\)c2\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(6\\), \\(_\\)]\\)2m\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(6\\), \\(_\\)]\\)2c\"\>", 
   ",", "\<\"P6/mmm\"\>", ",", "\<\"P6/mcc\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)/mcm\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P6\\), \\(3\\)]\\)/mmc\"\>", 
   ",", "\<\"P23\"\>", ",", "\<\"F23\"\>", ",", "\<\"I23\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)3\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I2\\), \\(1\\)]\\)3\"\>", 
   ",", "\<\"Pm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"Pn\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"Fm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"Fd\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"Im\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"Pa\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"Ia\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)\"\>", 
   ",", "\<\"P432\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(2\\)]\\)32\"\>", 
   ",", "\<\"F432\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(F4\\), \\(1\\)]\\)32\"\>", 
   ",", "\<\"I432\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(3\\)]\\)32\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(P4\\), \\(1\\)]\\)32\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(I4\\), \\(1\\)]\\)32\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3m\"\>", 
   ",", "\<\"F\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3m\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3m\"\>", 
   ",", "\<\"P\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3n\"\>", 
   ",", "\<\"F\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3c\"\>", 
   ",", "\<\"I\\!\\(\\*OverscriptBox[\\(4\\), \\(_\\)]\\)3d\"\>", 
   ",", "\<\"Pm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>", 
   ",", "\<\"Pn\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)n\"\>", 
   ",", "\<\"Pm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)n\"\>", 
   ",", "\<\"Pn\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>", 
   ",", "\<\"Fm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>", 
   ",", "\<\"Fm\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)c\"\>", 
   ",", "\<\"Fd\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>", 
   ",", "\<\"Fd\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)c\"\>", 
   ",", "\<\"Im\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)m\"\>", 
   ",", "\<\"Ia\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)d\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7184306070449543`*^9, 3.718430610284733*^9}, 
   3.718430660683967*^9},
 CellLabel->"Out[2]=",
 CellID->1537003612,ExpressionUUID->"ba46cdb1-f17e-4681-8a4e-6abbc6c47757"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Subscripts are made with the key combination \[ControlKey]+",
 StyleBox["hyphen-minus",
  FontSlant->"Italic"],
 " and overbars are made by highlighting the digit character and pressing \
\[ControlKey]+7 followed by and underscore."
}], "Text",
 CellChangeTimes->{{3.7167947542060537`*^9, 3.716794778297831*^9}, {
  3.716794843896668*^9, 3.716794906863205*^9}, {3.7167949502079782`*^9, 
  3.716794950966054*^9}, {3.716794991398613*^9, 3.716795072987444*^9}},
 CellID->1118086339,ExpressionUUID->"1dc3f77e-0f76-4694-92ae-43a2b82f273c"],

Cell[TextData[{
 "Input in ",
 Cell[BoxData[
  ButtonBox["SymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryData"]], "InlineFormula",
  ExpressionUUID->"d521084e-4bf3-48fa-9112-f77330be8030"],
 " (and ",
 Cell[BoxData[
  ButtonBox["SymmetryOperations",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryOperations"]], "InlineFormula",
  ExpressionUUID->"f8859cb2-f016-4d87-8dff-e46aad9ecc66"],
 ") are automatically run through ",
 Cell[BoxData[
  ButtonBox["$GroupSymbolRedirect",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$GroupSymbolRedirect"]], "InlineFormula",
  ExpressionUUID->"c4823b13-bb76-49ad-95f1-86efcf30ffab"],
 ". An advantage is that the entries do not have to be formatted; instead of \
using ",
 Cell[BoxData[
 "\"\<Fd\!\(\*OverscriptBox[\(3\), \(_\)]\)m\>\""], "InlineFormula",
  ExpressionUUID->"22b9a1ea-cbbc-4084-a5ed-9636b9a589f7"],
 ", entering ",
 Cell[BoxData[
 "\"\<Fd-3m\>\""], "InlineFormula",ExpressionUUID->
  "bb9cdd3f-c469-4b78-bba5-ca5b7c5a4e76"],
 ", ",
 Cell[BoxData[
 "\"\<F d -3 m\>\""], "InlineFormula",ExpressionUUID->
  "66857378-39e4-47e0-899d-ea09a5558025"],
 ", ",
 Cell[BoxData[
 "\"\<F 41/d -3 2/m\>\""], "InlineFormula",ExpressionUUID->
  "5e4cb151-c6ec-402b-a70d-88883b50e1ae"],
 " or even the Hall string of that space group (",
 Cell[BoxData[
 "\"\<F 4d 2 3 -1d\>\""], "InlineFormula",ExpressionUUID->
  "2bf3be3f-1b79-4abc-b3d0-0244adfff56c"],
 ") will look up the same space group."
}], "Text",
 CellChangeTimes->{{3.716746650430099*^9, 3.716746721209816*^9}, {
  3.7167471353996468`*^9, 3.71674731342927*^9}, {3.716747461977816*^9, 
  3.7167475972318563`*^9}, {3.716747646742578*^9, 3.7167476664111567`*^9}, {
  3.716794661422656*^9, 3.716794661644964*^9}, {3.716794799060299*^9, 
  3.716794800027176*^9}},
 CellID->1151212725,ExpressionUUID->"6e4b9803-f030-4251-af82-da486421af47"],

Cell[TextData[{
 "One can also use ",
 Cell[BoxData[
 "\"\<Fd-3m:2\>\""], "InlineFormula",ExpressionUUID->
  "135b4777-6a76-4104-ae32-31f64d93db10"],
 " to specify the alternative setting with cell origin 2, or ",
 Cell[BoxData[
 "\"\<R -3 c:r\>\""], "InlineFormula",ExpressionUUID->
  "b76c3135-46d9-433b-9c65-d08d4166f9d4"],
 " to specify the version with rhombohedral axes."
}], "Text",
 CellID->339500947,ExpressionUUID->"8740f664-ad2e-4b1c-9d60-2a4b0ca58997"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellID->23220180,ExpressionUUID->"b4974505-18b8-4bb3-bca7-0a86380617dc"],

Cell["XXXX", "TutorialMoreAbout",
 CellID->1567025153,ExpressionUUID->"7ceccb31-a4dc-4970-ab2b-db025f5a2c95"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"d1f9b0cc-fc86-41b1-a3d9-418e9fa13e7f"],

Cell["XXXX", "RelatedTutorials",
 CellID->806871991,ExpressionUUID->"3736811f-36f4-4c64-ad44-6f06b020f3d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Wolfram Education Group Courses", "TutorialRelatedLinksSection",
 CellID->415694148,ExpressionUUID->"1c93359c-5b35-4ce6-8c99-dc74870aa8f6"],

Cell["XXXX", "TutorialRelatedLinks",
 CellID->415694149,ExpressionUUID->"a6d1b70c-4e56-4595-8138-c5ae66e6a17c"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{720, 791},
WindowMargins->{{920, Automatic}, {Automatic, 258}},
FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 10, \
2015)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",
 CellID->1122911449],
Cell[1309, 41, 136, 2, 30, "Categorization",
 CellID->686433507],
Cell[1448, 45, 175, 3, 30, "Categorization",
 CellID->605800465],
Cell[1626, 50, 172, 3, 30, "Categorization",
 CellID->468444828],
Cell[1801, 55, 234, 3, 30, "Categorization"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2072, 63, 111, 1, 29, "KeywordsSection",
 CellID->1427428552],
Cell[2186, 66, 100, 1, 70, "Keywords",
 CellID->1251852827]
}, Closed]],
Cell[CellGroupData[{
Cell[2323, 72, 108, 1, 19, "DetailsSection",
 CellID->307771771],
Cell[2434, 75, 118, 2, 70, "Details",
 CellID->218895918],
Cell[2555, 79, 124, 2, 70, "Details",
 CellID->350963985],
Cell[2682, 83, 121, 2, 70, "Details",
 CellID->795871300],
Cell[2806, 87, 126, 2, 70, "Details",
 CellID->199739161],
Cell[2935, 91, 115, 2, 70, "Details",
 CellID->40625308],
Cell[3053, 95, 116, 2, 70, "Details",
 CellID->357121918],
Cell[3172, 99, 117, 2, 70, "Details",
 CellID->35949532],
Cell[3292, 103, 133, 2, 70, "Details",
 CellID->929432370],
Cell[3428, 107, 122, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3587, 114, 187, 2, 106, "Title",
 CellID->509267359],
Cell[3777, 118, 680, 16, 41, "Text",
 CellID->1534169418],
Cell[CellGroupData[{
Cell[4482, 138, 192, 2, 39, "MathCaption",
 CellID->1517691727],
Cell[4677, 142, 244, 5, 24, "Input",
 CellID->318520214]
}, Open  ]],
Cell[4936, 150, 1518, 33, 112, "DefinitionBox",
 CellID->99232225],
Cell[6457, 185, 477, 11, 30, "Caption",
 CellID->1348695503],
Cell[6937, 198, 1732, 41, 66, "DefinitionBox",
 CellID->165241693],
Cell[8672, 241, 358, 4, 29, "Caption",
 CellID->520778680],
Cell[CellGroupData[{
Cell[9055, 249, 191, 2, 43, "Section",
 CellID->452856133],
Cell[9249, 253, 319, 8, 23, "Text",
 CellID->1652838465],
Cell[9571, 263, 733, 18, 41, "Text",
 CellID->285647363],
Cell[CellGroupData[{
Cell[10329, 285, 659, 15, 55, "MathCaption",
 CellID->836781195],
Cell[CellGroupData[{
Cell[11013, 304, 357, 7, 27, "Input",
 CellID->2058623809],
Cell[11373, 313, 12123, 407, 369, "Output",
 CellID->2033754830]
}, Open  ]],
Cell[CellGroupData[{
Cell[23533, 725, 296, 6, 27, "Input",
 CellID->2019258044],
Cell[23832, 733, 415, 7, 26, "Output",
 CellID->1262409059]
}, Open  ]],
Cell[CellGroupData[{
Cell[24284, 745, 388, 8, 30, "Input",
 CellID->1001407484],
Cell[24675, 755, 2121, 31, 198, "Output",
 CellID->1648459366]
}, Open  ]],
Cell[CellGroupData[{
Cell[26833, 791, 343, 7, 27, "Input",
 CellID->773138009],
Cell[27179, 800, 3507, 115, 122, "Output",
 CellID->798542228]
}, Open  ]],
Cell[CellGroupData[{
Cell[30723, 920, 426, 8, 30, "Input",
 CellID->1315579155],
Cell[31152, 930, 641, 16, 26, "Output",
 CellID->1113720663]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31842, 952, 1308, 30, 74, "Text",
 CellID->1365164161],
Cell[CellGroupData[{
Cell[33175, 986, 749, 15, 47, "Input",
 CellID->1003033997],
Cell[33927, 1003, 1107, 28, 46, "Output",
 CellID->861959179]
}, Open  ]],
Cell[CellGroupData[{
Cell[35071, 1036, 359, 7, 27, "Input",
 CellID->634366406],
Cell[35433, 1045, 546, 11, 26, "Output",
 CellID->359190946]
}, Open  ]],
Cell[CellGroupData[{
Cell[36016, 1061, 267, 5, 27, "Input",
 CellID->1613558772],
Cell[36286, 1068, 519, 14, 26, "Output",
 CellID->1034805328]
}, Open  ]]
}, Open  ]],
Cell[36832, 1086, 435, 8, 40, "Text",
 CellID->1841698457],
Cell[CellGroupData[{
Cell[37292, 1098, 1068, 27, 70, "MathCaption",
 CellID->313492412],
Cell[CellGroupData[{
Cell[38385, 1129, 609, 13, 70, "Input",
 CellID->1356726882],
Cell[38997, 1144, 568, 12, 70, "Output",
 CellID->585354733]
}, Open  ]]
}, Open  ]],
Cell[39592, 1160, 1003, 19, 70, "Text",
 CellID->1041931239],
Cell[CellGroupData[{
Cell[40620, 1183, 447, 10, 70, "MathCaption",
 CellID->1402210381],
Cell[CellGroupData[{
Cell[41092, 1197, 284, 5, 70, "Input",
 CellID->1898417409],
Cell[41379, 1204, 1210, 34, 70, "Output",
 CellID->1100511139]
}, Open  ]]
}, Open  ]],
Cell[42616, 1242, 340, 6, 70, "Text",
 CellID->1286366377],
Cell[CellGroupData[{
Cell[42981, 1252, 261, 3, 70, "MathCaption",
 CellID->1900682364],
Cell[CellGroupData[{
Cell[43267, 1259, 386, 8, 70, "Input",
 CellID->1263461432],
Cell[43656, 1269, 1055, 29, 70, "Output",
 CellID->1765837619]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44760, 1304, 291, 4, 70, "MathCaption",
 CellID->971497286],
Cell[CellGroupData[{
Cell[45076, 1312, 391, 8, 70, "Input",
 CellID->636717661],
Cell[45470, 1322, 1083, 29, 70, "Output",
 CellID->1953650870]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[46614, 1358, 185, 2, 70, "Section",
 CellID->138763261],
Cell[46802, 1362, 258, 5, 70, "Text",
 CellID->1550736978],
Cell[CellGroupData[{
Cell[47085, 1371, 404, 9, 70, "MathCaption",
 CellID->395965241],
Cell[CellGroupData[{
Cell[47514, 1384, 374, 9, 70, "Input",
 CellID->2110366032],
Cell[47891, 1395, 1679, 50, 70, "Output",
 CellID->1151145671]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49619, 1451, 512, 11, 70, "MathCaption",
 CellID->939397198],
Cell[CellGroupData[{
Cell[50156, 1466, 314, 6, 70, "Input",
 CellID->1462664324],
Cell[50473, 1474, 1501, 28, 70, "Output",
 CellID->625116674]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[52023, 1508, 414, 9, 70, "MathCaption",
 CellID->959012233],
Cell[CellGroupData[{
Cell[52462, 1521, 319, 7, 70, "Input",
 CellID->194728893],
Cell[52784, 1530, 2081, 49, 70, "Output",
 CellID->845938794]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54914, 1585, 465, 10, 70, "MathCaption",
 CellID->298077865],
Cell[CellGroupData[{
Cell[55404, 1599, 1618, 45, 70, "Input",
 CellID->1696103385],
Cell[57025, 1646, 4374, 111, 70, "Output",
 CellID->1351567618]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[61448, 1763, 451, 11, 70, "MathCaption",
 CellID->1314978241],
Cell[CellGroupData[{
Cell[61924, 1778, 292, 5, 70, "Input",
 CellID->1678480760],
Cell[62219, 1785, 1535, 34, 70, "Output",
 CellID->1862421407]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63815, 1826, 241, 3, 70, "Section",
 CellID->1476721470],
Cell[CellGroupData[{
Cell[64081, 1833, 1041, 27, 70, "Text",
 CellID->507057234],
Cell[CellGroupData[{
Cell[65147, 1864, 281, 5, 70, "Input",
 CellID->1892818732],
Cell[65431, 1871, 5504, 82, 70, "Output",
 CellID->737470407]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[70984, 1959, 438, 10, 70, "Text",
 CellID->885083924],
Cell[CellGroupData[{
Cell[71447, 1973, 345, 8, 70, "Input",
 CellID->985910860],
Cell[71795, 1983, 11274, 192, 70, "Output",
 CellID->1537003612]
}, Open  ]]
}, Open  ]],
Cell[83096, 2179, 552, 10, 70, "Text",
 CellID->1118086339],
Cell[83651, 2191, 1889, 47, 70, "Text",
 CellID->1151212725],
Cell[85543, 2240, 464, 11, 70, "Text",
 CellID->339500947]
}, Open  ]],
Cell[CellGroupData[{
Cell[86044, 2256, 120, 1, 70, "TutorialMoreAboutSection",
 CellID->23220180],
Cell[86167, 2259, 109, 1, 70, "TutorialMoreAbout",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[86313, 2265, 127, 1, 70, "RelatedTutorialsSection",
 CellID->415694126],
Cell[86443, 2268, 107, 1, 70, "RelatedTutorials",
 CellID->806871991]
}, Open  ]],
Cell[CellGroupData[{
Cell[86587, 2274, 153, 1, 70, "TutorialRelatedLinksSection",
 CellID->415694148],
Cell[86743, 2277, 111, 1, 70, "TutorialRelatedLinks",
 CellID->415694149]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
